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The current paper presents a solution of the Program Understanding: A Reengineering Case for the 
Transformation Tool Contest using the VIATRA2 model transformation tool. 

1 Introduction 

Automated model transformations play an important role in modern model-driven system engineering in 
order to query, derive and manipulate large, industrial models. Since such transformations are frequently 
integrated to design environments, they need to provide short reaction time to support software engineers. 

The objective of the Viatra2 (Visual Automated model TRAnsformations framework is to 
support the entire life-cycle of model transformations consisting of specification, design, execution, val- 
idation and maintenance. 

Model representation. Viatra2 uses the VPM metamodeling approach |[8| for describing modeling 
languages and models. The main reason for selecting VPM instead of a MOF-based metamodehng 
approach is that VPM supports arbitrary metalevels in the model space. As a direct consequence, models 
taken from conceptually different domains (and/or technological spaces) can be easily integrated into 
the VPM model space. The flexibility of VPM is demonstrated by a large number of already existing 
model importers accepting the models of different BPM formalisms, UML models of various tools, XSD 
descriptions, and EMF models. 

Graph transformation (GT) [3] based tools have been frequently used for specifying and executing 
complex model transformations. In GT tools, graph patterns capture structural conditions and type 
constraints in a compact visual way. At execution time, these conditions need to be evaluated by graph 
pattern matching, which aims to retrieve one or all matches of a given pattern to execute a transformation 
rule. A graph transformation rule declaratively specifies a model manipulation operation, that replaces 
a match of the LHS graph pattern with an image of the RHS pattern. 

Transformation description. Specification of model transformations in Viatra2 combines the vi- 
sual, declarative rule and pattern based paradigm of graph transformation and the very general, high-level 
formal paradigm of abstract state machines (ASM) ||2j| into a single framework for capturing transfor- 
mations within and between modeling languages Q. A transformation is defined by an ASM machine 
that may contain ASM rules (executable command sequences), graph patterns, GT rules, as well as ASM 
functions for temporary storage. An optional main rule can serve as entry point. For model manipulation 
and pattern matching, the transformation may rely on the metamodels available in the VPM model space; 
such references are made easier by namespace imports. 

Transformation Execution. Transformations are executed within the framework by using the Vl- 
ATRA2 interpreter. For pattern matching both (i) local search based pattern matching (LS) and (ii) 
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Figure 1 : Solution Architecture 



incremental pattern matching (INC) aie available. This feature provides the transformation designer ad- 
ditional opportunities to fine tune the transformation either for faster execution (INC) or lower memory 
consumption (LS) [6]. 

The rest of the paper is structured as follows. Sec.|2]gives an architectural overview of the transfor- 
mation, while Sec. [3] highlights the interesting parts of our implementation and finally Sec. |4] concludes 
the paper. 



2 Solution Architecture 

We implemented our solution for the Program Understanding case study f5l using the VIATRA2 model 
transformation framework. Fig. [T] shows the complete architecture with both preexisting (depicted with 
darker rectangles) and newly created components (lighter rectangles). The optional Transformation Con- 
troller is an extension to the Eclipse framework that provides an easy-to-use graphical interface for ex- 
ecuting the underlying transformation (i.e. it appears as a command in the pop-up menu of XMI tiles); 
it is, however, possible to execute the same steps manually on the user interface of VIATRA2. From the 
user perspective, the controller is invoked on an input XMI file and the result is an output Statemachine 
file. 

Note that the transformation is performed on models inside the VPM modelspace of VIATRA2 rather 
than on in-memory EMF models. Although VIATRA2 does not manipulate EMF models directly, it 
includes a generic support for handling EMF metamodels and instance models. 

In order to understand the transformation we briefly outline the metamodeling approach of our so- 
lution. The Ecore metametamodel is the base of this support, which was defined in accordance with the 
actual EMF metamodel of Ecore. 

Both the Java syntax graph and Statemachine metamodels are defined as instances of this metameta- 
model, and are imported into VIATRA2 with the generic Ecore metamodel importer. Then the input file 
is used to import the Java syntax graph into VIATRA2 and create the Java syntax model which is the 
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instance of the Java syntax metamodel. 

By executing our implemented transformation, we can transform the Java syntax model to a Statema- 
chine model which is an instance of the Statemachine metamodel. This Statemachine model is then 
exported to create the output Statemachine file. 



3 Transforming Java syntax to statemachines (J2SM) 

The J2SM transformation generates the Statemachine model from the Java syntax graph in the VIATRA2 
framework and is implemented in the VIATRA2 Textual Command Language (VTCL) [ 1 1. J2SM can be 
separated into four parts, (1) the construction of the Statemachine states and their outgoing transitions, 
(2) the processing of triggers and (3) actions for outgoing transitions, and finally (4) connecting the 
transitions to the target states. 

The complete transformation is around 450 lines of VTCL code including whitespaces and com- 
ments (see Appendix IB]). It includes 21 complex patterns, e.g. the Java class called through an In- 



stance.activate( ) method call can be looked up with the pattern in line 172 Finally, the actual manipula- 



tion is executed by 5 declarative rules (e.g. create trigger for a given transition, see line 227 1. There are 2 
additional rules for starting and stopping time measurement for different parts of the transformation (see 



lines 440 and 448 1. 



The transformation starts with a short initialization phase, where the output buffer for the transfor- 
mation log is cleared, the time measurement starts and a new statemachine model is created. 

Construction of states and transitions. The elements representing the states and transitions of the 
statemachine are created in the following way: 

1 . First, states are created for each Java class that is not an abstract subclass of the State class (see 



top-level pattern at line 97 called in line 45 from a forall construct). A recursive pattern finds these 
classes by traversing supertype edges. 

2. Once the state is created, we store the correspondence between the class and the state in an ASM 



function (essentially a hashmap), the transition handling rule is called (line 63 1. 



3. 



Since at this point the target states of a transition is probably not available, we only create the src 
and out relations. 



4. The transitions in a class are identified by another complex pattern that matches the Class.Instance.activate( ) 



method calls and finds the called class (see line 172). The beiow keyword is used in a subpattern 
to express transitive containment of the target class reference within the definition of the source 
class. 

5. Once the transition is created, we also store the called class for the transition in the same ASM 
function to be able to create the dst and in relations later. 



Processing triggers. Next, the rule handling triggers (see line 227 1 is called from line 163 The triggers 



are created based on the class method, where the activate() call is found (see pattern in line 293 1, the 



switch case constant (line 300) or the catch block exception (line 332 1 that is the closest in the statement 
hierarchy to the method call. Note that when a catch block is inside another catch block (and similarly 
for switch cases), the reference solution may choose the outer one for the trigger, while our solution 
chooses the correct one. 
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Processing actions. In the following phase, the action part of the transition is created (line 368 1. The 
action is created based on the existence of a send( ) method call in the same statement container (found 
using the pattern in line 403 1 as the activate( ) call. The name of the action is the same as the enumeration 
value from the send() method call parameter (line|416[). 



Connecting transitions to targets. Finally, the target of all transitions are handled in the same step 
using a forall construct (see line 206 1. The interesting part of this rule is the usage of ASM functions to 
retrieve the correct target state (line 215 1. Remember, that the called class is stored for transitions and 
states are stored for created classes. Therefore, since we iterate through all transitions, the target state 
can be selected by retrieving the called class for the current transition and the state for that class. 



Performance. We used the provided models to test the performance of our implementation. We ob- 
served that our framework was unable to handle the biggest model, if we tried to import the complete 
model, due to Viatra2's VPM representation consuming more memory than EMF. For the other input 
models, the total runtime of the plug-in loading, import, transformation and export is around 10 seconds, 
while the transformation itself is around 2 seconds. 

However, if we allow a preprocessing phase, which removes unnecessary parts of the model (with the 
help of EMF IncQuerjQ, the big model could be transformed. However, this reduced model is almost 
equal to the medium model, thus it does not demonstrate the scalability of the approach. 



Evaluation. The transformation handles the core task and both extensions, therefore it is complete. 
The generated state machines are equal to the provided reference solutions, the source and target of tran- 
sitions are set, while triggers and actions are also created, which means the transformation is correct. The 
transformation code itself is well-structured and is annotated with comments to increase understandabil- 
ity. However, it may be challenging for those unfamiliar with the language. Since the language and the 
framework are not tailored to EMF, the conciseness of the transformation is lower and the performance 
of the framework is limited (as discussed above). As a main development direction, we are working on 
new tools for more powerful EMF support. 



4 Conclusion 

In the current paper we have presented our Viatra2 based implementation for the Program Understand- 
ing case study Q . 

The high points of our transformation are (i) the reusable patterns, (ii) the easily readable transfor- 
mation language, (iii) the use of ASM functions for easily retrieving corresponding elements, and (iv) 
that triggers are created for the correct switch case and catch block (as opposed to reference solution). 

On the other hand, import-export of models is required and we cannot handle the largest sample input 
model due to memory constraints. 
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A Solution demo and implementation 



Our implementation for the case study together with the current version of VIATRA2 can be installed 
from the following Eclipse update site: |http: //mit .bme .hu/~ujhelyiz/viatra/ttcll/ Addition- 



ally, the solution is also available an archive file: http://mit.bme.hu/~ujhelyiz/viatra/ttcll. 
[zip Similarly, our solution for the Hello World! case is downloadable from http://mit.bme.hu/ 
|~ujhel yiz/viatra/ttcll-helloworld. zip. 

The SHARE image p] usable for demonstration purposes contains our solution for both the Hello 
World! and Program Understanding cases. 



B Appendix - Program Understanding transformation 
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// metamo del imports 

import nemf . packages . classifiers ; 

import nemf . packages . commons ; 

import nemf . packages . types ; 

import nemf . package s . modif i ers ; 

import nemf . packages . references ; 

import nemf . packages . members ; 

import nemf . packages . statements ; 

import nemf . packages . parameters ; 

import nemf . packages . expressions ; 

import nemf . packages . statemachine ; 

import nemf . ecore ; 

import nemf . ecore . datatypes ; 



aincremental 

machine reengineer ing Java-C 



20 



asmfunction buf /O; // output buffer 

asmfunction time/1; // runtime measurement data 

asmfunction models/1; // storing models 

asmfunction sm/1; // store for statemachine related elements 



// entry point of transformation 
rule mainO = seq{ 



30 



// initialize output buffer 

let Buf = clearBuf f er ( " cor e : // r eEngineer " ) in seq{ 
update buf () = get Buf f er (" cor e :// r eEngineer ") ; 

} 



call startTimer ( " main " ) ; 

print In (. buf (. ) , " ReEngineer ing Transformation started."): 



40 



// create new statemachine 
let StateMachine = undef in seq{ 

new ( StateMachine ( StateMachine ) in nemf . resources ) ; 

rename (StateMachine ,"A_StateMachine") ; 

update models("sm") = StateMachine; 

} 

// finds all State subtypes 

/* 1. A State is a non-abstract Java class ( cl ass i f i ers . CI as s ) that 
extends the abstract class named ''State'' directly or indirectly . 
All concrete state classes are implemented as singletons [GHJV95] . */ 

forall StateClass with find 



let State = undef , StatesRel 



NotAbstractStateClass ( StateClass ) do 

undef , NameRel = undef in seq{ 
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60 



println (buf () , " --> Found State class " + name ( StateClass ) ) : 
// create states in StateMachine 
new ( State ( State ) in models (" sm" )) ; 

new(StateMachine.states(StatesRel,models("sm") .State)); 

// store Class -> State correspondence 

update sm ( StateClass ) = State; 

// add name to State 

try choose Name with find NameOfElement (Name , StateClass ) 
let StateName = undef in seqi 
new ( EStr ing ( St at eName ) in State); 
setValue(StateName ,value(Name)) ; 
rename (State .value (Name)) ; 

new(State .name ( Name Re 1 .State .StateName)) ; 



do 



// c reat e 
call 



} 



transition s from state 



createTransitions ( StateClass ) 
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// f or each Transition , f inds target (use sm map) 



call createTransitionTargets ( ) ; 
call endTimer ( " main " ) ; 

println (buf () . " ReEngineer ing Transformation ended " + t ime ( " main " ) ) ; 
print In ( buf () . " RULE: createTransitions ran (in total) for " 

+ t ime (" creat eTrans it i ons ")) ; 
println (buf () . " RULE: createTransitionTargets ran (in total) for " 

+ time("createTransitionTargets")) ; 
print In ( buf () . " RULE: addTrigger ran (in total) for " 

+ time (" addTrigger ")) ; 
println (buf () . " RULE: addAction ran (in total) for " 

+ t ime ( " addAct i on " ) ) ; 



} 



// finds classes which are subtypes of State 
pattern ClassSubTypeQf State ( Clas s ) = { 

C 1 a s s ( Class ) ; 

find 



SuperTypeOf Class ( SuperType .Class ) : 



find 
check' 



NameOfElement (Name . SuperType ) ; 
( value ( N ame ) == "State"); 



}- or { // transitive matching 

90 Clas s (Class ) ; 

find 



SuperTypeOf Class ( SuperType .Class ) : 



find 



} 



ClassSubTypeOf State ( SuperType ) ; 



100 



// restrict subtypes of State to non-abstract ones 
patter n NotAbstractStateCla ss (Class) = { 
find 



Clas sSubTypeOf State (Class ) 



} 



neg find 



AbstractClass (Class) 



// finds name attribute for element 
pattern NameOfElement ( Name , Element ) = { 
NamedElement (Element ) ; 

NamedElement .name(NameRel .Element .Name) ; 
EString(Name) ; 

} 



// finds supertype of class 
110 pattern SuperTypeOf Class ( SuperType . Clas s ) = { 
Class (Class ) ; 

Class. extends( Ext ends .Class .NSClassRef) ; 
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find TargetOf NamespaceClassif ierRef erence ( NSClas sRef , SuperType); 
C 1 a s s ( SuperType ) ; 

} 

// navigate on the cl as s i f i evRe f erence and target relations to Target 
pattern TargetOf NamespaceClassif ierRef erence ( NSClas sRef , Target) = { 
NamespaceClassifierReference(NSClassRef); 
120 Name spaceClas s if i erRef erence . c las s i f i er Ref er enc es (ClassRefRel , 

NSClassRef , ClassRef ) ; 
ClassifierReference(ClassRef) ; 

ClassifierReference.target(TargetRel, Class Ref .Target); 

} 

// matches abstract classes 
pattern AbstractClass ( Clas s ) = { 
Class (Class ) ; 

AnnotableAndModif iable . annot at ions AndModif ier s (Modif ierRel , 
130 Class , Abstract ) ; 

Abstract (Abstract) ; 

} 



// create transitions leading out from StateClass 
rule cr eateTransit ions ( in StateClass) = seq{ 
call 



startTimer ("createTransitions") ; 



// finds all transition in class 

/* 2. A Transition is encoded by a methodcall (refer en ces.MethodCall), 
which invokes the next state's Instance () method ( memb ers . Metho d) 
140 returning the singleton instance of that state on which the activate () 

method is called in turn. This activation may be contained in any of the 
classes ' methods with an arbitrary deep nesting . */ 
forall Ac t i vat eCallClas s , Act i vat eClas sRef with 
find 



ClassCalledWithActivate (ActivateCallClass , 
ActivateClassRef .StateClass) do let Transition = undef , 
TransRel = undef , SrcRel = undef , OutRel = undef in seq{ 



println (buf () , " --> Found activate () methodcall to " 
+ name ( Ac t i vat eCallClas s ) ) ; 
150 // create Transitions 

new ( Trans it ion ( Trans it ion ) in model s (" sm ")) ; 

new(StateMachine . tr an sitions( TransRel ,models("sm") .Transition)) ; 

r ename ( Tr ans i t i on , name ( StateClass ) + 

+ name ( Ac t i vat eCallClas s )) ; 
// add source, use correspondence for finding state 
new(Transition. src(SrcRel .Transition .sm(StateClass))) ; 
new(St ate. out (OutRel. sm(StateClass) .Transition)); 



160 // store reference to the class on the other end of transition 

update sm ( Trans it ion ) = ActivateCallClass; 
// a dd trigger 



addTrigger 



call 

// add action 
call 



} 

call 



(ActivateClassRef, Transition); 
addAction ( Act i vat eClas sRef . Transition) ; 



endTimer ("createTransitions"); 



170 // finds the class which is called using an activate () method 

pattern ClassCalledWithActivate ( Act i vat eCallClas s . 
ActivatedClassRef . StateClass ) = { 

!( StateClass ) ; // check that the class is a state 



find 



ClassSubTypeOf State 



// r ef erence to Cl ass 



find 
Stat 



Ref erenceTarget (ActivatedClassRef 
eClass .ActivateCallClass ) ; 
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Reference .next(ACRNextRef ,ActivatedClassRef , InstanceCall) 

// r eference t o Instance method 



find 



MethodCall (InstanceCall .ActivateCallClassInstance) ; 



Refe rence . next (E RNextRef , InstanceCall , Act iv ate Call) ; 

// name of Instance 

Instance " ) ; 



find 
check 



NameOf Element ( Name .ActivateCallClassInstance) : 
(value C Name ) == 



// r eference t o activate () method 



MethodCall (ActivateCall ,ActivateMethod) : 



find 

find NameOf Element (ActName ,ActivateMethod) ; 
check(value ( Act Name ) == "activate"); 



190 // finds reference to target 

pattern ReferenceTarget ( TargetRef , Sour ceElement , Ref erenc edTar get ) = { 
Comment able (SourceElement) ; 
Ref erenc eableEl ement ( Ref er encedTarget ) ; 
Ident i f i er Ref erenc e ( Tar get Ref ) below SourceElement; 
El ement Reference .target (TargetRefRel .TargetRef .Refer encedTarget) ; 



// finds method called by Caller 
pattern MethodCall (Caller . CalledMethod) = { 
200 MethodCall (Caller ) ; 

El ement Reference .target (TargetRef .Caller .CalledMethod) ; 

ClassMethod (CalledMethod) ; 

} 



210 



220 



// create references between transitions and target states 
rule cr eateTransit ionTargets ( ) = seq{ 

call startTimer ("createTransitionTargets") ; 

print In ( buf ( ) , " RULE: Creating transition targets"); 



forall Transition with find 
let DstRel = undef , InRel 
println (buf () , ' 



Transition ( Trans it i on ) do 



= undef in seq{ 
> Creating target for " + name ( Trans it i on )) : 
// sm ( Transi t i on ) returns the target class TargetClass 
// sm(TargetClass) returns the corresponding state 
new(Transition.dst(DstRel .Transition .sm(sm(Transition)))) ; 
new(State.in(InRel,sm(sm(Transition)) .Transition)); 

} 

call 



endTimer ("createTransitionTargets") 



} 



// simple type wrapper for Transition 
pattern Transition ( Trans it ion ) = { 
Trans it i on ( Trans it ion ) ; 

} 



230 



240 



// add triggers to transition 

rule ad dTrigger (in ActivateClassRef , in Transition) = seq{ 



call 



StartTimer 



println (buf () , 



("addTrigger") 

RULE: Creating trigger for 



+ name ( Trans it i on ) ) 

// finds the method where the activate () methodcall happens 
try c hoose CallingCla ssMethod with 



find 
let 



ParentClassMethod (CallingClassMethod , 
Trigger = undef 



ActivateClassRef) do 



TriggerRel = undef , 
Trigger ingElement = undef in seq{ 
println (buf () . " --> Found class method 

+ name ( Cal 1 ingClas sMethod ) ) ; 
try c hoose MethodN ame with 
find 



NameOfElement (MethodName , CallingClassMethod) do seq{ 



/* 1. If activation of the next state occurs in any method except run () . 
then that method's name ( memb ers . Metho d . name ) shall be 
used as the trigger. */ 

if ( value ( MethodName ) != "run") seq{ 
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250 



260 



270 



280 



update Trigger ingElement = CallingClassMethod ; 

} 

/* 2. If the activation of the next state occurs inside a non-default 
case block ( statements . NormalSwitchCase) of a switch statement 
( statements . Switch) in the run () method, then the enumeration con- 
stant ( memh ers . EnumConst ant ) used as condition of the corresponding 
case is the trigger . */ 
else seq{ 

try c hoose Swi t chCaseCons t a nt with 
find 



Parent SwitchCaseConstant ( Swit chCaseConst ant 
ActivateClassRef) do 



CallingClassMethod 
seq-[ 

print In ( buf () , " --> Found case " + name ( Swi t chCaseConst ant )) : 
update Trigger ingElement = SwitchCaseConstant ; 



} 

/* 3. If the activation of the new state occurs inside a 
( statements . CatchBloch) inside the run () method, 

then the trigger is the name of the caught exception 
else try choose CatchBlo ckClass with 



catch block 



s class . */ 



find ParentCatchBlockClass ( Cat chBlockClass , 
CallingClassMethod , TctivateClassRef ) do 
seq{ 

println (buf () , " --> Found catch " + name ( Cat chBl ockClas s )) ; 
update Tr iggeringElement = CatchBlockClass; 



} 

/* 4- none of the three cases above can be matched for the activation 

of the next state, i.e., the activationcall is inside the run () method 
but without a surrounding switch or catch, the corresponding transition 
is triggered unconditionally . In that case, the trigger attribute shall 
be set to --. */ 
else seq{ 

println (buf () , " --> Unconditional trigger"); 

} 

} 

new ( ESt ring ( Trigger ) in Transition); // creating trigger 
n6w(Transition.trigger(TriggerRel ,Transiti on, Trigger)); 
if ( Trigger ingElement != undef) 
try c hoose Hame w ith 
find 



} 



NameOfElement (Name , TriggeringElement ) do seq{ 
// use name of chosen element 
set Value (Trigger .value (Name ) ) ; 



else setValue (Trigger , 



-") : 



} 

} 

call 



endTimer ( " addTr igger " ) 



290 



} 



// finds the class method for a given reference 
pattern ParentClassMethod ( Call ingClassMethod , 1 dent i f i er Ref ) = { 
ClassMethod (CallingClassMethod) ; 

Ident if i er Ref er ence ( Ident if ierRef ) below CallingClassMethod; 

} 



// finds the immediate parent switchcase constant for a reference 
pattern ParentSwitchCaseConstant ( Swi t chCaseConst ant , 
300 ClassMethod, Ident if ierRef ) = { 

NormalSwitchCase (NormalSwitchCase) ; 

// p arent switchcase 
find 



ParentSwitchCase (NormalSwitchCase 
IdentifierRef ) ; 

of switch 



ClassMethod , 
// condition 

Condi t ional . condition ( Condi t ionRel , NormalSwitchCase 
IdentifierReference(Condition) ; 



Condit ion ) 
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EnumConst ant (SwitchCaseConstant) ; 

// r eferenced cons t ant 



find 



Refer enceTarget (Condition, No rmalSwitchCase .SwitchCaseConstant); 



320 



// finds immediate parent switchcase , check for lowest parent 
pattern ParentSwitchCase ( NormalSwit chCase , ClassMethod , Ident if i er Ref ) 
ClassMethod (ClassMethod) ; 
Swi t ch ( Swi t ch ) below ClassMethod; 
Normal SwltchCase ( NormalSwit chCase) ; 
Switch. cases(CaseRel .Switch .NormalSwitchCase) ; 
Ident if i er Ref erence ( Ident if ierRef ) below NormalSwitchCase ; 
// if th ere is a I o wer switch, that must he used 

IdentifierRef ) ; 



neg find 



LowerSwltch ( Switch 



330 



340 



// checks whether a lower switch exists between Switch and the ref erence 
pattern LowerSwitch ( Switch , IdentifierRef) = { 
Switch(Switch) ; 

Swit ch ( Lower Swit ch ) below Switch; 

Ident if i er Ref erence ( Ident if 1 erRef ) below LowerSwitch; 

} 



// finds the class of the exception used in the parent catch block 
pattern ParentCatchBlockClass ( Cat chBlockClass , ClassMethod, IdentifierRef) 
CatchBlock (CatchBlock) ; 

// p arent catch blo ck 

find ParentCatchBlock ( Cat chBlock , ClassMethod, IdentifierRef); 



Cat ChBlock. par ameter(ParRel,C at chB lock, Parameter); 
// t arqeted parameter 



find 



} 



Ref erenceTeirgetOf Parameter 



(Parameter , Cat chBlockClass) : 



// finds target for parameter through type reference 
pattern Ref erenceTargetOf Parameter ( Par ameter , Target ) = { 
OrdinaryParameter(Parameter) ; 

Type dElement . typeRef erence (TypeRef .P arameter , NSClassRef ) ; 



find 



} 



TargetOfNamespaceClassif ierRef erence ( NSClas sRef , Target) 



// finds immediate parent catch block for ref erence 
350 pattern ParentCatchBlock ( Cat chBlock , ClassMethod, IdentifierRef) = { 
ClassMethod (ClassMethod) ; 

TryBlock ( Tr yBlock ) below ClassMethod; // the try block where the catch is 
CatchBlock (CatchBlock) ; 

TryBlock . catcheBlocks (BlockRef , TryBlock , CatchBlock) ; 
Ident if i erRef erence ( Ident if IerRef ) below CatchBlock; 
// if th ere is a I ower catch, that must be used 

IdentifierRef ) ; 



neg find 



} 



LowerCat ChBlock (Cat chBlock 



360 // checks whether a lower catch exists between Cat chBl o ck and the reference 
pattern LowerCatchBlock ( Cat chBlock , IdentifierRef) = { 
CatchBlock (CatchBlock) ; 

Cat chBlo ck ( Lower Cat chBlo ck ) below CatchBlock; 

Ident if i erRef erence ( Ident if ierRef ) below LowerCatchBlock; 

} 



370 



// add action to transition 

rule addActiondn Act i vateClassRef , in Transition) = seq{ 



startTimer ( " addAct ion " ) ; 



call 

print In (. buf (. ) , " RULE: Creating action for " + name ( Trans it i on )) ; 
// finds the statement container containing the methodcall 
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380 
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try c hoose StatementContain er with 
find ParentStatementContainer ( St at ement Cont ainer , Ac t i vat eCl as sRef ) do 
let Action = undef , Act i onRel = undef in seq{ 

println (buf () , " --> Found container " + name ( StatementContainer )) ; 

new ( ESt r ing ( Act i on ) in Transition); 

new(Tr an sition. action ( Act ionRel ,Transition , Action)) ; 
/* 1, If the block ( statements . StatementListContainer) containing the ac- 
tivation Call of the next state additionally contains a method Call to the 
send () method , then that call ' s enumeration constant ■parameter ' s name is 
the action . */ 
try c hoose SendMethodParameter w ith 
find 



SendMethodParameterlnContainer ( SendMethodParameter 
Statement Cont ainer) 



do 



try c hoose Name w ith 

; ( Name , SendMet hodPar amet er ) do seq{ 
--> Found send () parameter 



find 



NameOf Element ( 
println (.buf ( ) 

+ name ( SendMethodParameter )) ; 
setValue (Action .value (Name)) ; 



400 



/* 2. If there is no Call to sendO in the activation call '6 
the action of the corresponding transition shall he set to 
else seq{ 

println (buf () , " --> No sendO in block."); 

setValue (Action , "--") ; 

} 

} 

call 



block , 
--. */ 



endTimer ("addAction") ; 



// finds parent statement container 

pattern ParentStatementContainer ( St at ement Cont ainer , Expression) = { 
StatementListContainer(StatementContainer); 
ExpressionStatement (Statement) ; 

StatementListContainer . statements ( St at ement sRel , 

StatementContainer , Statement) ; 
ExpressionStatement.expression(ExprRel,Stat6ment .Expression); 
Expr e ss i on ( Expr es s ion ) ; 

410 

} 
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/* finds the EnumConstant used as the Parameter of a sendO 

method in a statement container */ 
pattern SendMethodParameterlnContainer ( SendMethodParameter , 
StatementContainer) = { 
StatementListContainer (StatementContainer); 
// p arent container 

find ParentStatementContainer ( St at ement Cont ainer , SendMethodCall ) ; 



find 
find 
check 



MethodCall ( SendMethodCall , SendMethod) ; // methodcall 



NameOf Element (SendName .SendMethod) ; 

(value ( Send Name ) == "send"); // ensure that it is a sendO 



find ArgumentQfMethodCall (Argument , SendMethodCall ) ; // argument of sendO 
Reference . next (NextRef . Argument , EnumRef ) ; 

// t arget of the a rgument 
find 



ReferenceTarget ( EnumRef .Argument .SendMethodParameter); 
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/* finds corresponding arguments for a methodcall */ 
pattern ArgumentOf MethodCall ( Argument . MethodCall ) = { 
MethodCall (MethodCall ) ; 

Argumentable . arguments ( ArgRel , MethodCall . Argument ) ; 
Expression (Argument ) ; 
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/* starts the timer corresp onding to the RuleName */ 
rule startTimer ( in RuleName) = seq{ 

if ( t ime ( RuleName ) == undef ) 

update t ime ( RuleName ) = - systimeO; 

else 

update t ime ( RuleName ) = t ime ( RuleName ) - systimeO; 

} 

/* stops the timer corresponding to the RuleName */ 
rule endTimerCin RuleName) = seq{ 

if ( t ime ( RuleName ) == undef) 
update t ime ( RuleName ) = 0; 

else 

update t ime ( RuleName ) = t ime ( RuleName ) + systimeO; 

} 



Listing 1 : Transformation code 



